﻿Imports System.Security.Cryptography

Public Class userAcc

    Public userID As Integer
    Public display_name As String
    Public password As String
    Public verified As Boolean
    Public isAdmin As Boolean
    Public date_created As Date
    Public first_name As String
    Public last_name As String
    Public email As String
    Public date_of_birth As Date
    Public country As String
    Public gender As String
    Public superAdmin As Boolean

    Public Sub New(ByVal display_name As String, ByVal password As String, ByVal verified As Boolean, ByVal date_created As Date, ByVal first_name As String, ByVal last_name As String, ByVal gender As String, ByVal email As String, ByVal date_of_birth As Date, ByVal country As String)
        Me.display_name = display_name
        Me.password = password
        Me.verified = verified
        Me.date_created = date_created
        Me.first_name = first_name
        Me.last_name = last_name
        Me.gender = gender
        Me.email = email
        Me.date_of_birth = date_of_birth
        Me.country = country
    End Sub

    Public Sub New(ByVal userID As Integer, ByVal display_name As String, ByVal verified As Boolean, ByVal isAdmin As Boolean, ByVal date_created As Date, ByVal superAdmin As Boolean)
        Me.userID = userID
        Me.display_name = display_name
        Me.verified = verified
        Me.isAdmin = isAdmin
        Me.date_created = date_created
        Me.superAdmin = superAdmin
    End Sub

End Class
